C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 
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**F ILE**1D**PRGETTOK 

PPPPPPPP RRRRRRRR GGGGGGGG EEEEEEEEEE TITTTTTTTT TITTTTTITT 000000 KK KK 

PPPPPPPP RRRRRRRR GGGGGGGG EEEEEEEEEE TITTTTTTTT TTTTTTTTTT 000000 eK KK 

PP PP RR RR GG EE TT TT 00 0O KK KK 

PP PP RR RR GG EE TT TT 00 OO KK KK 

PP PP RR RR GG EE TT TT 00 00 KK KK 

PP PP RR RR GG EE TT TT 00 OO KK KK 

PPPPPPPP RRRRRRRR GG EEEEEEEE TT TT 00 OO KKKKKK 

PPPPPPPP RRRRRRRR GG EEEEEEEE TT TT 00 OO KKKKKK 

PP RR RR GG GGGGGG EE TT TT 00 oo K 

PP RR RR GG GGGGGG EE TT TT 00 OO KK KK 

PP RR RR GG GG EE TT TT 00 OO KK KK eeee 

PP RR RR G EE TT TT 00 00 KK KK cove 
RR RR GGGGG EEEEEEEEEE TT TT 000000 KK KK coee 

PP RR RR GGGGGG EEEEEEEEEE TT TT 000000 KK KK cece 

LL III! SSSSSSSS 

LL IIIT] SSSSSSSS 

LL I] SS 

LL Il SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL II SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III! SSSSSSSS 

LLLLLLLLLL 111! SSSSSSSS 


WN OO OON™ NEWN ("OO OBNOAUS WN “OVO ONOUE WN" OOONOUS WH 


BES FNANWNAAA MII PIPPIN NPONINDY 2 2 OO On ee 


Be Se Se Be Be Se Be Se Se Se Se Se Ge Fe Se Se Ge Se Ge Fe Ge Be Ge Ge Se Se FF Se Ge Se Be Ge Ge Se Se Ge Se Se Se Se Se Se Se Se See See Se Se Fe Se Seas Ge Se oe 
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EDTSPRGETTOK = scan a token 1o=3¢0 -1 1384 9}: i736 VAX-11 Bliss-32_ V res Page 1 
14- =tep- DISK KSVMCM STER: a OFRC PRGETTOK.BLI;1 (1) 

001 HM AS beg Ree TOK = scan a token' 

ULE EDTSPRGETTOK ( ! Scan a token 
jOEN NT = ‘v04-000' ! File: PRGETTOK.BLI Edit: J8S1012 
= 
BEGIN 


DoOoOoooooo 
SSsssss 
wre 


4 ; 
5 ! ; 
$ i aeons poreanaoan magmas rrr eC rte Ps 
'@ e Ps 
808 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * ; 
010 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * : 
911 is ALL RIGHTS RESERVED. . : 
4 ® . 
ig 1 !'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
0014 1 !* om IN aceon DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
pois 1 !® COPIES THEREOF a NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
dh : i; TRANSFERRED. * ; 
® ® 6 
34 1 !e pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
ooce Vit CORPORATION. * : 
Hid # $ 
00246 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
B8 2 : os SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . : 
: 
th : se nienaeid bbinedebieddeinbdntinbanmanonncaiidhiideemebaetininaaaedinennhdianninndintheintinn é 
0 1! 3 
$034 i '+¢ ; 
tt) : ‘ FACILITY: EDT -=- The DEC Standard Editor : 
0034 1 | ABSTRACT: ; 
it) : Scan the next parse token. : 
std : ENVIRONMENT: Runs at any access mode - AST reentrant : 
9040 1 AUTHOR: Bob Kushlis, CREATION DATE: December 12, 1978 : 
0048 MODIFIED BY: : 
044 1 1 1-001 - Original. DJS 25-Feb-1981. This module was created by : 
. 22 extracti ng routine setae. SCANTOK | rom module PARSER. : 
pe6 1! - Regularize headers. $~12-Mar-1 ‘ 
047 1! - Suppress quoted s i if re west d. JS 26-Aug-90} : 
3 7! = Change index on t ne ig tee of instead of 10 digits. SMB 18-Jan-1982 : 
1! - Accept quoted keys. STS ° 
50 1! - Delete reference to octets pe ot sis 09-Apr-1982 : 
51 1! = Change numeric test ie $ 19-Jul-19 
O26 - Modify to use new 48 bit arith macors. STS 01-Oct-1982 
53 1! = Don't strip diacritical marks from letters. JBS 13-Dec-1982 
054 1! - Adjust 3 TS$A_CMD_END fan spertening 2. Fe) siris to eliminate a doubled quote. JBS 18-Jan-1983 
55 1! - Add VT support” conditional. 1-Feb-1 of 
528 ' - Correct an error in a comment. JBS 17-Jun-19 
| 


EDyseR ETTOK EDTSPRGETTOK = scan a token 15- Sen-1984 
Vv ep- 


58 0058 1 


EDTSPRGETTOK = scan a token 
Declarations 


SSSSSSSSSSS ERRORS 
oovonoovononovnovoe SSS ae 
FUN NI BB "OOO 
SOWOONOUSWN NAO CO MEWS 


OOnOu 


a ee ee ed ed ed od od od 


OOOOOOM@Mo fo Je Te] 
RRANLESSIEALAVSS 


¥SBTTL ‘Declarations’ 
; TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSPA_SCANTOK : NOVALUE; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 
REQUIRE ‘EDTSRC:PARLITS'; 
LIBRARY ‘EDTSRC:SUPPORTS'; 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 


i 
i 
i 
q 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
! In the routine 


71386 92:34:69 i SRCSPRGETTOK.BLIGa™” (23 


iss-32 V es 
) 


EDTSPRGETTOK § EDTSPRGETTOK = scan a token Sep-1984 01:17:4 VAX-11 8 
vos EDTSSPA_SCANTOK = scan the next token 1fdeo-1944 eye DISK SKSVMSA MASTER: tb 1 SRCSPRGETTOK. BLI; Hi "3 V 
; 44 8 9 } ZSBTTL “EDTSSPA_SCANTOK = scan the next token’ ; 
: 39 9 § 1 GLOBAL ROUTINE EDTSSPA_SCANTOK ! Scan the next token ; 
; 191 ; i : : NOVALUE = : 
4 g 955 1 I++ 
3 13? M § : FUNCTIONAL DESCRIPTION: , 
: 105 9 8 ii This routine isolates the next token in the command Line nt tag the variables : 
i 106 959 1! EDT$$G_PA_TOKCLASS EDTSSA PA_CURTOK and EDT$$G_PA_CURTOKLEN. . ; 
: 10 960 1 / DTS$$C cP “CH contains e Tirss character following che my token, so : 
3 198 38) 1 while s blank, we uses getti ng the next character. The previous token : 
. 4 ¢ 1 i sddress end Length ere stored in DT$$A_PA_PRVTOK and ; 
; 110 963 1 | EDTS$G_PA_PRVTOKLEN . If the token is fhumeric then ; 
; Mi) Baee : EDTS$SL-PA-NUMVAL will get the numeric value of the token. : 
i H§ 0966 1 i FORMAL PARAMETERS: ; 
3 919 968 1 | NONE ; 
; 116 0969 1 | : 
3; Vive 0970 1 ! IMPLICIT INPUTS: ‘ 
> 118 0971 1 ; 
; 119 0972 1! EDTSSA_CMD_BUF : 
: 120 0973 1! EDTSSA_CMD_ i: ‘ 
g Yer 0974 1! EDTSSC_PA . 
; \s¢ ode : ie =LNO PERO : 
; 134 0977 EDT$$G_PA_NOQUO : 
; 136 0979 | IMPLICIT OUTPUTS: : 
: 128 0981 1 | EDTSS$A_PA_PRVTOK : 
> 129 0982 1! . EDTS$G_ PA “PRVTOKLEN : 
; 130 0983 1 | EDT$$A_PA_CURTOK ‘ 
3 Is) 0984 1! EDT$$G_ PA _CURTOKLEN ‘ 
2 133 0985 1 | EDTSSL_ PAL UMVAL ; 
: 13 0986 1 EDT$$G_PA_PCENT : 
3; 134 0987 1! EDTS$$G_ PAT TOKCLASS ° 
i 135 0988 | EDTS$A_CMD_END ; 
; 139 0990 1 ' ROUTINE VALUE: : 
; 138 0991 1 | : 
OBB | Ee ew 
; 141 934 SIDE EFFECTS: ; 
: a3 996 1 | NONE 3 
: 6144 997 1! : 
aon ee : 
: a9 1000 BEGIN 
: 149 1008 EXTERNAL ROUTINE | : 
3 130 199 EDTSSPA_GETCH : NOVALUE; ! Get the next character from the input Line : 
; 13@ 1905 EXTERNAL : 
; 1 EDTS$G_DEFKEY, e 
} 


EDTSPRGETTOK 
v0 


Be Se Be Se Se Ge Se Se Ge Fe Ge Fe Ge Se Ge Se Ge Fe Se Ge Ge Ge Ge Ge FH Se Se Se Be Ge Se Se Ge Be Se FF Ss Oe Ge Se Se oe SESS SH Ss Se Se Se Sse) O45 Ss Se Sees 


— 
Ad Ah bb dh hh del 
OONOUE 


ce ee ce ee ce ee ee ee ee ee ee ce ce el ee ae ee ce ce ce el ce ee ee ee a cee el ee ee ee ee ee ee ee ee 


SSBVSAR AV SSS IR ARM OOS ON RU OOO PUNO Do AR OS 


EDTSPRGETTOK = scan a token 4 01:17:4 VAX-11 Bliss-32 V4.0-74 Pa 
EDTSSPA_SCANTOK = scan the next token 38 9333033 DLSKSVMSMASTERSCEDT. SRCSPRGETTOK.BLI3 
EDTSSA_CMD_BUF, ! Pointer into command buffer. | 
EDTSSA_CMD_END, ! Pointer to end of current command. 
EDT SSC PA H ! the currently being processed character 
EDTS$A_~PA-CURTOK, i start of the current token 
EDTS$G_PA_CURTOKLEN, ' length of current token 
EDTSSL_PA_NUMVAL : LIN_BLOCK, ! the value of a numeric Literal 
EDTS$G_PA_PCENT, ! Did the keyword contain a percent? 
EDTSSA_PA_PRVTOK, ! Previous token address 
EDTS$$G_PA_PRVTOKLEN, ! Previous token length 
EDTS$G_PA_TOKCLASS, ! class of current token 
EDT$$G_PA_NOQUO, ! 1 = don't accept ‘ and *' as starting a string 
ZIF SUPPORT_VT220 
THE 


afl EDTSS$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE], ! Information about characters 


EDT$S$L_LNO_ZERO : LN BLOCK 
EDT$$L-LNOO : LNOVECTOR (14); 


‘+ 
Save off the address and length of the last tcken. 


EDTSSA_PA_PRVTOK = .EDTSSA_PA_CURTOK; 
EDT$$G_PA_PRVTOKLEN = .EDTS$G_PA_CURTOKLEN; 


'¢ 
First scan until the first non-blank character. 
UNTIL ((.EDTS$C_PA_CH NEQ %C* *) AND (.EDTS$C_PA_CH NEQ ASC_K_TAB)) DO 
EDTSSPA_GETCH 7%); 
EDTSSA_PA_CURTOK = .EDTSSA_CMD_BUF - 1; 
EDTS$$G_PA_TOKCLASS = CL_SPECIAL; 
EDTS$G_PA_PCENT = 0; 


SELECTONE .EDTS$C_PA_CH OF 
SET 
(¥c'O" TO x9") : 
BEGIN 
LOCAL 
DIGIT : LN_BLOCK; 
4 EDTS$G_PA_TOKCLASS = CL_NUMBER; 
| 
| 
| 
} 


i Accumulate the number as though it might a Line number. This means that we 
must do 48-bit arithmetic. 


MOVELINE (EDTSS$L_LNO_ZERO, EDTSS$L_PA_NUMVAL); 


ee cc ce ee ee ee ee ee ce ee ee ce ee ce ee ee ee ee ee ee ec ee ce ee ee ee ee ee ce ee cee cD ee ee ee ee ce ce ce ce ee ce ee ee eed ed ee 


ss MAMA AUIUMIUTUTIUN & & & , a FAWN AAAI POPUP PONINPONINYDYD 2 2 SS SS St SS oo 
WR 9 ODN UE WN 0 OONOAUE WIN $0 OD NAME WN $9 ODNOUE WN OCONAOUES WH "O0DO~ 


REE RWW WWIII NII ononononononononononononononoronononononononononononononoronononoronrororofnofnyn 


DO 
BEGIN 
MULTLINE (EDTSSL LNOO C1), EDTSSL_PA_NUMVAL, EDTSS$L_PA_NUMVAL); 
BUILDLINE (.EDT$SC_PA CH = %C'0', DIGIT); 
ADDLINE (DIGIT, EDTS$SC_PA_NUMVALS ; 


% 

>a 
no 
ou 


M15 
OK = scan a token 16-Sep-1984 01:17: VAX-11 Bliss-32 V4.0-74 Pa 6 
ANTOK = scan the next token 1o-g00-1 382 0435 DT EKSUMGHASTERSCEDT. Sec SPRGETTOK.BLIsto* (3) 
EDTSSPA_GETCH (); 


sugges 


Accept alphabetic characters and underscores. 


oo 
@ 


a 
| 
1 
1 UNTIL ( | 
iz > 
15 L 8 %1F SUPPORT_VT220 
fs THEN | 
Vv y 109 3 vee (.EDTS$B_CHAR_INFO C.EDTSSC_PA_CH, 0, 0, 8, 0] NEQ %X'FO") 
19 U 1078 5 ((.EDTS$C_PA_CH LSS %C'O") OR (.EDTS$C_PA_CH GTR %C°9")) 
1 74 
§ O75 ); ! Not a digit 
bee: oa 
6 079 CZC'A’ TO ZC'Z", BC'R", AX*CO" TO RX'CF', ¥X"D1" TO &X'DD'D : 
8 if - EDT$$G_PA_TOKCLASS = CL_NAME; 
08 i Accept an optional percent sign. 
30 dee § p p p 9 
3 086 IF (.EDTS$SC_PA_CH EQL %C'X") 
ae: he 
36 089 EDT$$G_PA_PCENT = 1; 
37 090 EDTS$$A-PA-CURTOK = .EDTSSA_CMD_BUF; 
38 091 EDTSSPA_GETCH (); 
39 092 ; 
40 09 
41 094 3 '+ 
4 095 
4 
4a 
45 
46 
47 


( 
EDTSSPA_GETCH 
END 
UNTIL (¢ 
X1F SUPPORT _V1220 
(.EDTSSB_CHAR_INFO C.EDTSSC_PA_CH, 0, 0, 2, 0] EQL 0) ! Not alphabetic 


( NOT (((.EDTS$$C_PA_CH GEQ ZC°A') AND (.EDTSSC_PA_CH LEQ %C'Z")) OR ((.EDTS$$C_PA_CH GEQ %C* 
AND (.EDT$S$C"PA~CH LEQ %C'z')))) 


QESRENVLSS 


PAAPIPIIS SB BD BBB BB EB FAWN & BEE A AWIAIIPIPINI ANN BBP EEE 
J 


ZELSE 


ccc 
a a a ee ee a ea a a a ee ce ed a ed ed a a a a a a eed ed «6 FTIETY 


ee ee ed ed ed ed ed ed od od = I I OOOO 


aFI 


OONOULSWN—OO@ 


AND (.EDTS$C_PA_CH NEQ %C'_")) 
END; 


recess 
BEGIN 


LOCAL 


tt tot OOO 


Wnr— 


ace?) : ! Start of a quoted string 


Be Se ee Be Se Se Se Se Be Se Ge Fe Ge BH Se Se Se Ge Se Ge Se Fe Ge Se Ge Se Se Ge Se Se Ge Se Ge Ge Ge Se Se GF Sse Se Se Se Se Se Se Se Se ee Se Ge Se Se Se Se tsetse 


FDAPOOAAS VN MNVNNII & & 
LEASES 
SOOONOUEWIN OOM 


ToS se te 


D0 
BEGIN 

CHSWCHAR (-EDTSSC_PA_CH, CHSPLUS (.EDTSSA_CMD_BUF, -1)); 

a. 


y| 
) 
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EDTSPRGETTOK EDTSPRGETTOK = scan a token 16-Sep-1984 01:17:4 VAX=-11 Bliss=-32 V4.0-74 Page 
vt EDTSSPA_SCANTOK = scan the next token 12-808- 1382 954769 DT EKSUMEMASTERSCEDT Sac SPRGETTOK.BLIn 4" (3) 
3 $8 1) 1 QUOTE; 
: $3 11 5 14 
; 27) 1124 ! Only scan the string if we are poreitted to do so. In the SUBSTITUTE command we may not 
3 f 1 é } scan a string since SUBSTITUTE has its own, very special, syntax for its two strings. 
: 274 11 . 
: 275 1 8 4 IF (.EDTS$G_PA_NOQUO) 
; 16 1 a THEN 
: 27 1130 4 BEGIN 
: 8 i 1 4 EDTSSPA_GETCH QO; 
: 80 1 $ ELSE 
; Be 1135 IF .EDTS$$G_DEFKEY 
; 28 1 6 THEN 
3 284 1137 4 BEGIN 
3 285 1138 4 EDTS$G_PA_TOKCLASS = CL_NAME; 
3 286 1139 4 QUOTE = CASRCHAR (.EDT$SA_PA CURTOK); 
: 287 1140 4 EDTBSA_PA_CURTOK = .EDTSSA_PA_CURTOK + 1; 
: $85 i142 bo 
Be Tey sea 
: 29 1145 5 LOCAL 
Be NEG aes 
: 99 1148 3 IF (.EDTSSA_CMD_BUF EQLA .EDT$SA_CMD_END) THEN EXITLOOP; 
: 237 1150 5 EDTSSPA_GETCH (); 
: 98 1131 3 CHAR = CHSRCHAR (.EDTSS$A_PA_CURTOK); 
: 300 L 1183 5 Z1F SUPPORT_VT220 
: 91 1134 3 ZTHEN 
: 308 1138 ; ft ,00TS08_fuan Pe C.CHAR, 0, 0, 1, 0] ' Lower case 
; Ho : 1158 2 XELSE 
: 309 U 1160 5 IF ((.CHAR GEQ %C*a") AND (.CHAR LEQ %C'z")) 
: 308 u 1161 § THEN 
: 309 1168 5 xFI 
: 318 Wen 3 BEGIN 
: 12 1165 6 CHAR = .CHAR = %C'a’ + XC'A'; 
: 31 1166 CHSWCHAR (.CHAR, .EDT$$A_PA_CURTOK); 
: 314 116 END; 
: 32 WWe9 8 END 
; Hi 11% 4 UNTIL (.EDTS$$C_PA_CH EQL .QUOTE); 
: 319 1178 4 EDTS$SPA_GETCH (); 
; 320 1173 4 EDT$$G_PA_CURTOKLEN = CHSDIFF (.EDTSSA_CMD_BUF, .EDTSS$A_PA_CURTOK) = 2; 
: 33) Wes ¢ ENDO 
: 3 1176 3 ELSE 
+ 32% 1177 4 BEGIN 


KIO MOOWZET KOK TOMWMMIOOVZ Sl KOK ITO WMMOOCOZ Sr ACK TOM OOOZ Sr KCK TOM OOW 


16 
EDTSPRGETTOK EDTSPRGETTOK = scan a token 18.28 Sep-1 VAX-11 Bliss-32 V 8 
tee EDTSSPA_SCANTOK = scan the next token 14- ~ep-1 382 93; Mf £69 DISKSVMSMASTER: tt + SRC SPRGETTOK. BLI; ris (3) 
; 325 11 EDTS$G_PA_TOKCLASS = CL_STRING; 
; § i138 ¢ 4 guoTe = = CASRCHAR Rt .EDTSSA.P PA_CURTOK); 
; 1189 
; 5 1188 WHILE CHSPTR_NEQ (.EDTSSA_CMD_BUF, .EDTSSA_CMD_END) DO 
; 9 i ; ‘ BEGIN 
; : 1188 3 IF (CHSRCHAR (.EDTS$A_CMD_BUF) EQL . QUOTE) 
; 11 6 : THEN 
; 335 1188 resi 
; ii i f IF (CHSRCHAR (CHSPTR (.EDTSSA_CMD_BUF, 1)) NEQ .QUOTE) THEN EXITLOOP; 
; 338 P1191 7 EDTSSCPY_MEM (CHSDIFE (. EDTSSA CMD END -EDTSSA CMD_BUF), 
: 339 119¢ 7 HSPT DT$$A_CMD 13 T$$A_CMD_BUF); ~ 
: 340 1193 7 EDTSEA. CMD ry = CHSPLUS ra "tp ts$a’ ihe ti hae OTe 
Bo RBS a 
; rk 1196 6 EDTSSA_CMD Buf = CHSPLUS (.EDTSSA_CMD_BUF, 1); 
: Ree 1198 _ 
: 46 1199 EDTSSG PA CURTOKLEN = CHSDIFF (.EDTSS$A_CMD_BUF, .EDTSS$A_PA_CURTOK) - 1; 
; 1200 $PR_GETCH 
: 348 150) ¢ EDtspa, GETCH : 
: 350 1 88 4 
2 51 1204 Ng 
; 1205 
: 1206 END; 
3 1207 
; i 8 cxc’!*) : 
; 1210 : 
; 1211 COTHERWISE) : 
; 1 1 EDTS$PA_GETCH (); 
; } 17 TES; 
: 1315 EDTS$G_PA_CURTOKLEN = CHSDIFF (.EDTSSA_CMD_BUF, .EDTSSA_PA CURTOK) = 1; 
3 1216 1 END; ' of routine EBTSS$PA_ SCANTOK 


TITLE Fererase Tron EDTSPRGETTOK - scan a token 
[IDENT \V04-00 

.EXTRN EDTSSPA_GETCH, EDT$$G_DEFKEY 
-EXTRN EDTSS$A_CMD_BUF, EDTSSA_CMD_END 
EXTRN EDISSC“PA CH, éot FSSA PR_CURTOK 
EXTRN EDI$$67PA-CURTOKLEN 

-EXTRN EDTSSLIPA_NUMVAL 

SEXTRN EDT$$G~PA~PCENT 

ZEXTRN EDTSS$A~PA~PRVT 

-EXTRN EDT$$G~PA-PRVTOKLEN 

-EXTRN EDT$$G~PA-TOKCLASS 

-EXTRN EDT$$G_~PA-NOQ 

“EXTRN EDTS$$B~CHAR_INFO 

-EXTRN EDTS$$LILNO_ ZERO 

~EXTRN EDTSSL-LNOO 
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AX-11 Bliss-32 V4. Page 
ISKSVMSMASTER: CED i? she PRGETTOK.BLI;1 


3 dhe ETTOK EDTSPRGETTOK = scan a token 16-Sep-1984 9}: i738 4 


EDTSSPA_SCANTOK = scan the next token -Sep-1 


1 13 OO1€ BEQL 238 : 

56 60 08 fy FD 1 CmPZV 4 { #8, (RO), QUOTE ; 
56 01 Ad 08 0 F 169 CMPZV #0, #8, 1(RO), QUOTE : 
1 1EF BNEQ 238 ; 

51 ‘ 1F1 SUBL2 RO, R1 : 

60 01 AO 1 O1F4 MOVC3 1. 1(RO), (RO) ; 

000000006 00 D7 001F9 DECL  EDT$$A_CMO_END ; 

6A D6 OOTFF 228: INCL  peciate ; 

D0 i 0 01 BRB 1$ ; 

0 6A 5 : 03 23$:  SUBL3 7, gots $A_CMD_BUF, RO F 

000000006 09 FF Ad E 0 07 MOVAB =1(RO) +afoTieeneh PA_CURTOKLEN ; 

£ 0 FB F CALLS #0, EDT$$PA_GET ; 

68 0 FB 00 Ng CALLS #0, EDTSSPA~ ~GETCH ; 

04 0021 RET ; 

21 56 D1 00 18 24$: CMPL  R6, #33 : 

03 13 0021 BEQL 26$ F 

68 00 Fe 0218 258: CALLS #0, EDTS$$PA_GETCH ; 

0 6A 6B C3 00 1 6$: SUBL3 EDTS$A_PA_CORTOK, EDTSSA_CMD_BUF, RO F 

000000006 00 FF AO 5 00220 MOVAB =1(RO)> EDT$$G_PA_CURTOKCEN F 


; Routine Size: 555 bytes, Routine Base: _EDTSCODE + 0000 


; 364 1217 1 
; 365 1218 1 !<BLF/PAGE> 


eS 


EDTSPRGETTOK 
v0 


: Elapsed ftaee EL 
3 Lines/CPU Min: 2709 


F 16 
PRGETTOK = scan a token 16-Sep-1984 01:17:4 
SPA_SCANTOK = scan the next token 10-308 =1 382 9} 


EDTS 
EDTS 
1219 1 END 
1 ? 
1221 


: 3es ! of module EDTSPRGETTOK 

: 369 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: -EDTSCODE 555 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 

Bice TOR, way St) Lied | ananeenenennl Syabols ooo----- Pages Processing 
5 File Total Loaded Percent Mapped Time 

: _$255$DUA28:CEDT.SRCJEDT.L32:1 377 24 4 40 00:00.2 
; ~$255$DUA28:CEDT. SRC IPSECTS.L32;1 2 1 50 7 00:00.1 
> 7$255$DUA28:CEDT.SRCIJSUPPORTS.L $2; 1 2 1 50 00:00.1 


COMMAND QUALIFIERS 


VAX-11 Bliss-32 V4.0- 
724:0 DISKSVMSMASTER: CEDT.SRC 


74 rag Page 12 
PRGETTOK.BLI;1 (4) 


st peti meatier tania abn Maat tater abdhivns MSRC$:PRGETTOK.BLI/UPDATE=(ENHS$: PRGE 


0 data bytes 


; Lexemes/CPU-Min: 11105 
: Memory U 
; Compication Complete 


Used: 193 pages 


PMENT CORPORATION 


AH-BT13A-SE 
AND PROPRIETARY 


VAX/VMS V4.0 
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